Shareware Grab Bag/Shareware Grab Bag.iso/003/chrchpr2.arc/CSEVENT.CMD

Text File | 1979-12-31 | 6.0 KB | 208 lines

* Program CSEVENT - Controls all Church Special Events Program Functions
Set talk off
Set bell off
Clear
Select primary
Set deleted on
Set intensity off
Set exact off
? 'Now loading the CSEVENT program.'
Select secondary
Use EDIRFILE index EDIRFILE
Store 'January  February March    April    May      June     ' to MONTHS
Store MONTHS+'July     August   SeptemberOctober  November December ' to MONTHS
If $(DATE(),7,2) = '00'
  Set date to 01,01,00
ENDIF
  Store ' ' to curmonthx
  Store ' ' to curyear
  Store ' ' to curmonth
  * Set today's date from current system-date
  Store $(date(),1,2) to curmo
  Store $(date(),7,2) to curmonthx
  Store val(curmo) to nmonth
  Store curmo+curmonthx to indate
  Store VAL(curmonthx) to CURYEAR
  If $(date(),4,1) = '0'
    Store $(DATE(),5,1) to CURMONTHX
  else
    Store $(DATE(),4,2) to CURMONTHX
  endif
  Store trim($(months,NMONTH*9-8,9)) to curmonth
  Store curmonth+' '+curmonthx to curmonthx
  Store ', 19'+$(DATE(),7,2) to CURYEAR
  Store curmonthx+curyear to curdate
GOTO 2
Store $(spact,21,1) to D
SKIP
Store trim($(SPACT,4,27)) to  ENAME
SKIP
Store $(SPACT,4,27) to eplace
SKIP
Store $(spact,4,27) to etime
SKIP
Store $(spact,9,8) to ecost
release curmo,months,curyear,curmonthx
Select primary
Store T to LEVEL2
Do while LEVEL2
  Store d+':MEMBERSE' to MFILE
  Save to FMEMVARS
  Erase
  @ 0,1 say  ename
  @ 0,60 say curdate
  @ 1,1  say 'DATA DISK = '+D
  @ 2,21 say 'CHURCH SPECIAL EVENT MANAGER             5-/CSEVENT /'
  @ 4,16 say  '1)  Event Attender Names                        /CSEUPDAT/'
  @ 5,16 say  '2)  Financial'
  @ 6,16 say  '3)  Lodging                                     /CSELODGE/'
  @ 7,16 say  '4)  Sessions                                    /CSESSION/'
  @ 8,16 say  '5)  Transportation                              /CSETRANS/'
  @ 9,16 say  '6)  Equipment                                   '
  @ 10,16 say '7)  Reports                                     /CSEREPTS/'
  @ 11,16 say '8)  Set Up                                      /CSESETUP/'
?
Accept '                Enter selection ' to MSEL
?
If !(MSEL)='DISK='
  Store !($(MSEL,6,1)) to D
  ? 'Disk now being set to drive',D
  Store d+':MEMBERSE' to MFILE
  Store 'D' to MSEL
  Save to FMEMVARS
endif
Select primary
Store $(msel,1,1) to XX
Do while @(XX,'12345678QqD')=0
  Accept 'Invalid selection. Please enter again ' to MSEL
  Store $(MSEL,1,1) to XX
enddo
If MSEL<>'8'.and.!(MSEL)<>'Q'
 If file(MFILE)
  Use &MFILE index &MFILE
 else
? "File",MFILE," doesn't exist on the data disk.  Perform SET UP to create it."
?
 endif
endif
Do CASE
    CASE MSEL = '1'
      Do CSEUPDAT.CMD
    CASE MSEL = '2'
     Select primary
     GOTO TOP
    ? '          Select -'
    ? '              1)  All attenders '
    ? '              2)  Attenders who still owe money'
    ?
    Accept '          Enter selection ' to fsel
    ?
    Do while @(!(fsel),'12Q')=0
      Accept 'Invalid entry. Please enter again ' to fsel
    enddo
    If !(fsel)<>'Q'
      ?
      ? '        Career Church Fall Retreat  -  FINANCES     ',curdate
      ?
      Store '.not. LEVEL2' to bname
      If fsel='2'
        ? '             People who still owe money'
        ?
        Store 'AMOUNT - val($(PAID1,1,9))-val($(PAID2,1,9)) <= 0' to bname
        Do while (.not. &bname) .and. .not EOF
          SKIP
        enddo
      endif
      Store 0.00 to OWEDT
      Store 0.00 to PAIDT
? '  PAID1         PAID2          OWED          Name and Phone '
? '-------------  -------------  ------    -----------------------------------'
      Do while .not. EOF
        Store val($(paid1,3,7))+val($(paid2,3,7)) to paidd
        Store amount-paidd to topay
        ? $(paid1,3,13),$(paid2,3,13),str(topay,8,2),'  ',last:name
        ?? $(first:name,1,13),$(home:phone,1,8)
        Store OWEDT+AMOUNT to OWEDT
        Store PAIDT+paidd to PAIDT
        SKIP
        Do while (&bname) .and. .not. EOF
          SKIP
        enddo
      enddo
? '---------------------------------------------------------------------------'
?
      If fsel='1'
        ?? ' Total OWED:',str(OWEDT,8,2)
        ?? '    Total PAID:',str(PAIDT,8,2)
      endif
      ?? '    Total still DUE:',str(OWEDT-PAIDT,8,2)
      ?
      Accept 'Report is complete.  Press <retn> ' to xx
     endif
    CASE MSEL='3'
       Do CSELODGE.CMD
    CASE MSEL='4'
      Do CSESSION.CMD
    CASE MSEL='5'
      Do CSETRANS.CMD
    CASE MSEL='6'
Store d+':MEMEQUIP' to M1FILE
Accept 'Does the MEMBERSE file need re-indexing, by Equipment name? ' to xx
Select primary
If !(xx)='Y'
  Use &MFILE
  ? 'Now indexing MEMBERSE by Equipment.'
  Set talk on
  Index on equipment to &M1FILE
  Set talk off
endif
Use &MFILE index &M1FILE
If !(xx)<>'Q'.and. xx<>' '
  ? '  Now searching for the first name with some Equipment.'
  Do while equipment='          '
    SKIP
  enddo
  ?
  Do while .not. EOF
    Store 0 to I
    Do while I<11 .and.  .not. EOF
      Store I+1 to I
      ? last:name,first:name,home:phone,address
      ? '   ',equipment
      SKIP
    enddo
    If .not. EOF
      Accept 'Press <return> to continue ' to xx
    endif
  enddo
  Accept  '  End-of-Equipment  Press <retn> ' to xx
endif
Select primary
Use &MFILE index &MFILE
    CASE MSEL = '7'
      Do CSEREPTS.CMD
    CASE MSEL='8'
      Do CSESETUP.CMD
    CASE !(MSEL) = 'Q'
      Store F to LEVEL2
      Use
      Clear
      RETURN
  ENDCASE
endif
Restore from FMEMVARS
Select secondary
Use edirfile index edirfile
Select primary
ENDDO
RETURN


            /CSEUPDAT/'
  @ 5,16 say  '2)  Financial'
  @ 6,16 say  '3)  Lodging                                     /CSELODGE/'
  @ 7,16 say  '4)  Sessions                                    /CSESSION/'
  @ 8,16 say  '5)  Transportation                              /CSETRANS/'
  @ 9,16 say  '6)  Equipment                                   '
  @ 10,16 say '7)  Reports                                     /CSEREPTS/'
  @ 11,16 say '8)  Set Up